home *** CD-ROM | disk | FTP | other *** search
/ The World of Computer Software / The World of Computer Software.iso / tm400-3.zip / HEIGHT.SCR < prev    next >
Text File  |  1993-01-05  |  1KB  |  45 lines
  1. ;
  2. ; HEIGHT.SCR, set the terminal window height
  3. ;
  4. ; You cannot reduce the size of the screen. However, you can reduce
  5. ; the size of the terminal window by using the scroll margin command
  6. ; defined in VT102 and ANSI terminal emulations.
  7. ;
  8.  
  9. query terminal,term
  10. if term=1 or term=3 or term=4
  11.   print "What terminal height do you like ?"
  12.   print " 0. full height"
  13.   if height > 24
  14.      print " 1. 24 lines"
  15.   endif
  16.   if height > 25
  17.     print " 2. 25 lines"
  18.   endif
  19.   if height > 35
  20.     print " 3. 35 lines"
  21.   endif      
  22.   if height > 43
  23.     print " 4. 43 lines"
  24.   endif
  25.   if height > 50
  26.     print " 5. 50 lines"
  27.   endif
  28.   print "Select: ",
  29.   input choice
  30.   print "^[[2J",
  31.   concat s,choice
  32.   atoi s,h
  33.   switch h
  34.     case 0: print "^[[0;0r",
  35.     case 1: print "^[[0;24r",
  36.     case 2: print "^[[0;25r",
  37.     case 3: print "^[[0;35r",
  38.     case 4: print "^[[0;43r",
  39.     case 5: print "^[[0;50r",
  40.   endswitch
  41. else
  42.   print "This script run on ANSI, VT102 and AVATAR only"
  43. endif
  44.  
  45.